home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / WTOR.MAC < prev    next >
Text File  |  1987-08-11  |  827b  |  47 lines
  1. WTOR     MACRO ?,??
  2.      AIF   &1=?.READ
  3.      AIF   &1='.LIT
  4. &LABEL$$ LA    14,L'&1
  5.      LA    15,&1
  6.      AGO   .NOP
  7. .LIT     ANOP
  8. &LABEL$$ LA    14,L'LIT&N$
  9.      LA    15,LIT&N$
  10. .NOP     NOP   0
  11. LOOP&N$  MVC   LOOP&N$-1(1),0(15)
  12.      LA    1,LOOP&N$-1
  13.      LA    2,1
  14.      SVC   13
  15.      IC    2,LOOP&N$-1
  16.      SVC   202
  17.      LA    15,1(0,15)
  18.      BCT   14,LOOP&N$
  19. .READ     LA    14,L'&2
  20.      LA    15,&2
  21.      XR    0,0
  22. READ&N$  SVC   201
  23.      STC   0,0(15)
  24.      CLI   0(15),X'0D'
  25.      BE    EOF&N$
  26.      LR    1,15
  27.      LA    2,1
  28.      SVC   12
  29.      LA    15,1(0,15)
  30.      BCT   14,READ&N$
  31.      LA    2,X'0D'
  32.      SVC   202
  33.      B     END&N$
  34.      AIF   &1#'.NOLIT
  35. LIT&N$     DC    C&1
  36. .NOLIT     AIF   &PAD=NO.NOPAD
  37. EOF&N$     MVI   0(15),C' '
  38.      LA    15,1(0,15)
  39.      BCT   14,EOF&N$
  40.      AGO   .END
  41. .NOPAD     ANOP
  42. EOF&N$     BCTR  15,0
  43. .END     ANOP
  44. END&N$     EQU   *
  45.      LA    2,X'0A'
  46.      SVC   202
  47.